# Plot Figure S6 in Appendix

par(mfcol=c(3,1), las=1, tck=0, oma=c(1,1,1,1), mar=c(3,3,2,1), mgp=c(1.7, .3, 0), cex.axis=.7, cex.lab=.7)

plot(c(1:5), combined.res.des[,1], pch=19, ylim=c(-.6, .6), ylab="ACDE", xlab="Citizen Response to Liberal Policy", axes=F)
grid(lty=1, lwd=.5, col="lightgrey")
abline(v=0, col="black", lty=2)

segments(c(1:5), combined.res.des[,1]-1.96*combined.res.des[,2], c(1:5), combined.res.des[,1]+1.96*combined.res.des[,2], pch=19)
#points(jitter(imp.data.1$liberal), jitter(rep(-7, length(imp.data.1$liberal)),3), pch=19, cex=.1, col=rgb(0,0,0,40,max=255))
axis(2, col="white")
axis(1, at=c(1:5), label=c("Stronly Oppose", "Oppose", "Neither", "Support", "Strongly Support"), col="white")
mtext("A) Welfare Deservingness", side=3, line=0, adj=0, cex=.8)


plot(c(1:5), combined.res.vote[,1], pch=19, ylim=c(-.4, .4), ylab="ACDE", xlab="Citizen Response to Liberal Policy", axes=F)
grid(lty=1, lwd=.5, col="lightgrey")
abline(v=0, col="black", lty=2)

segments(c(1:5), combined.res.vote[,1]-1.96*combined.res.vote[,2], c(1:5), combined.res.vote[,1]+1.96*combined.res.vote[,2], pch=19)
#points(jitter(imp.data.1$liberal), jitter(rep(-7, length(imp.data.1$liberal)),3), pch=19, cex=.1, col=rgb(0,0,0,40,max=255))
axis(2, col="white")
axis(1, at=c(1:5), label=c("Stronly Oppose", "Oppose", "Neither", "Support", "Strongly Support"), col="white")
mtext("B) Right to Vote", side=3, line=0, adj=0, cex=.8)

# Plot ACDE
plot(c(1:5), combined.res.off[,1], pch=19, ylim=c(-.4, .4), ylab="ACDE", xlab="Citizen Response to Liberal Policy", axes=F)
grid(lty=1, lwd=.5, col="lightgrey")
abline(v=0, col="black", lty=2)

segments(c(1:5), combined.res.off[,1]-1.96*combined.res.off[,2], c(1:5), combined.res.off[,1]+1.96*combined.res.off[,2], pch=19)
#points(jitter(imp.data.1$liberal), jitter(rep(-7, length(imp.data.1$liberal)),3), pch=19, cex=.1, col=rgb(0,0,0,40,max=255))
axis(2, col="white")
axis(1, at=c(1:5), label=c("Stronly Oppose", "Oppose", "Neither", "Support", "Strongly Support"), col="white")
mtext("C) Right to Hold Public Office", side=3, line=0, adj=0, cex=.8)

